home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / siod / scm / timer.scm < prev    next >
Encoding:
Text File  |  1993-08-19  |  230 b   |  8 lines
  1. (define time-of-day runtime)
  2.  
  3. (define (timer proc . args)
  4.         (let* ((start (runtime))
  5.                (ans (apply proc args))
  6.                (end (runtime)))
  7.               (writeln "Time = " (- end start) ", Answer = " ans)))
  8.